/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / sn_logfig32.lha / LoginConfig

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 20 24 56 45 52 3a | 20 53 4e 20 4c 6f 67 69 |/* $VER:| SN Logi|
|00000010| 6e 43 6f 6e 66 69 67 20 | 76 33 2e 32 20 28 30 32 |nConfig |v3.2 (02|
|00000020| 2f 30 36 2f 39 35 29 20 | 28 53 4e 2f 41 48 49 20 |/06/95) |(SN/AHI |
|00000030| 39 31 30 2e 33 32 36 2e | 33 38 30 34 20 43 2d 4c |910.326.|3804 C-L|
|00000040| 69 6e 6b 21 20 39 31 31 | 3a 36 33 38 30 2f 37 20 |ink! 911|:6380/7 |
|00000050| 26 20 46 69 64 6f 20 31 | 3a 33 36 31 34 2f 31 31 |& Fido 1|:3614/11|
|00000060| 38 20 32 38 2e 38 6b 29 | 00 2a 2f 6f 70 74 69 6f |8 28.8k)|.*/optio|
|00000070| 6e 73 20 72 65 73 75 6c | 74 73 3b 61 72 67 20 69 |ns resul|ts;arg i|
|00000080| 74 3b 63 61 6c 6c 20 43 | 41 52 3b 67 75 3d 67 65 |t;call C|AR;gu=ge|
|00000090| 74 75 73 65 72 3b 74 72 | 3d 74 72 61 6e 73 6d 69 |tuser;tr|=transmi|
|000000a0| 74 3b 73 73 3d 73 65 6e | 64 73 74 72 69 6e 67 3b |t;ss=sen|dstring;|
|000000b0| 67 75 20 33 39 3b 75 64 | 69 72 3d 72 65 73 75 6c |gu 39;ud|ir=resul|
|000000c0| 74 3b 74 6d 70 3d 22 52 | 41 4d 3a 74 6d 70 2e 22 |t;tmp="R|AM:tmp."|
|000000d0| 75 64 69 72 3b 74 6d 70 | 31 3d 22 52 41 4d 3a 74 |udir;tmp|1="RAM:t|
|000000e0| 6d 70 31 2e 22 75 64 69 | 72 3b 69 66 20 69 74 3d |mp1."udi|r;if it=|
|000000f0| 22 52 45 53 45 54 22 20 | 74 68 65 6e 20 73 69 67 |"RESET" |then sig|
|00000100| 6e 61 6c 20 52 45 53 45 | 54 3b 67 75 20 32 33 3b |nal RESE|T;gu 23;|
|00000110| 70 6f 72 74 3d 72 65 73 | 75 6c 74 3b 67 65 74 77 |port=res|ult;getw|
|00000120| 68 65 72 65 20 70 6f 72 | 74 3b 6f 6c 64 77 68 65 |here por|t;oldwhe|
|00000130| 72 65 3d 72 65 73 75 6c | 74 3b 63 68 61 6e 67 65 |re=resul|t;change|
|00000140| 77 68 65 72 65 20 22 53 | 4e 20 4c 6f 67 69 6e 43 |where "S|N LoginC|
|00000150| 6f 6e 66 69 67 22 3b 66 | 6e 3d 22 4d 61 69 6c 3a |onfig";f|n="Mail:|
|00000160| 75 73 65 72 73 2f 22 75 | 64 69 72 22 2f 5f 6c 6f |users/"u|dir"/_lo|
|00000170| 67 66 69 67 22 0a 0a 70 | 74 68 3d 22 53 4e 3a 4c |gfig"..p|th="SN:L|
|00000180| 6f 67 46 69 67 2f 22 20 | 20 20 20 20 20 2f 2a 20 |ogFig/" |     /* |
|00000190| 4c 6f 63 61 74 69 6f 6e | 20 6f 66 20 5f 43 6f 6e |Location| of _Con|
|000001a0| 66 69 67 20 66 69 6c 65 | 73 20 2a 2f 0a 61 73 6b |fig file|s */.ask|
|000001b0| 65 6d 3d 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |em=0    |        |
|000001c0| 20 20 20 2f 2a 20 41 73 | 6b 2f 46 6f 72 63 65 20 |   /* As|k/Force |
|000001d0| 43 75 73 74 6f 6d 69 7a | 65 20 30 3d 46 4f 52 43 |Customiz|e 0=FORC|
|000001e0| 45 20 31 3d 41 53 4b 20 | 2a 2f 0a 0a 69 66 20 61 |E 1=ASK |*/..if a|
|000001f0| 73 6b 65 6d 3d 31 20 74 | 68 65 6e 20 64 6f 3b 63 |skem=1 t|hen do;c|
|00000200| 61 6c 6c 20 53 4e 3b 73 | 73 22 19 6e 31 19 63 66 |all SN;s|s".n1.cf|
|00000210| 59 6f 75 20 61 72 65 20 | 63 75 72 72 65 6e 74 6c |You are |currentl|
|00000220| 79 20 75 73 69 6e 67 20 | 74 68 65 20 64 65 66 61 |y using |the defa|
|00000230| 75 6c 74 20 6c 6f 67 69 | 6e 20 73 65 71 75 65 6e |ult logi|n sequen|
|00000240| 63 65 2e 19 6e 32 44 6f | 20 79 6f 75 20 77 69 73 |ce..n2Do| you wis|
|00000250| 68 20 74 6f 20 63 75 73 | 74 6f 6d 69 7a 65 20 74 |h to cus|tomize t|
|00000260| 68 69 73 3f 20 5b 19 63 | 39 4e 6f 19 63 66 5d 20 |his? [.c|9No.cf] |
|00000270| 22 3b 67 65 74 63 68 61 | 72 3b 69 66 20 75 70 70 |";getcha|r;if upp|
|00000280| 65 72 28 72 65 73 75 6c | 74 29 7e 3d 22 59 22 20 |er(resul|t)~="Y" |
|00000290| 74 68 65 6e 20 64 6f 3b | 63 68 61 6e 67 65 77 68 |then do;|changewh|
|000002a0| 65 72 65 20 6f 6c 64 77 | 68 65 72 65 3b 65 78 69 |ere oldw|here;exi|
|000002b0| 74 3b 65 6e 64 3b 65 6e | 64 0a 6c 66 6e 3d 70 74 |t;end;en|d.lfn=pt|
|000002c0| 68 22 5f 43 6f 6e 66 69 | 67 2e 41 64 64 65 64 22 |h"_Confi|g.Added"|
|000002d0| 3b 63 62 67 6e 3d 70 74 | 68 22 5f 43 6f 6e 66 69 |;cbgn=pt|h"_Confi|
|000002e0| 67 2e 42 65 67 69 6e 22 | 3b 63 65 6e 64 3d 70 74 |g.Begin"|;cend=pt|
|000002f0| 68 22 5f 43 6f 6e 66 69 | 67 2e 45 6e 64 22 0a 63 |h"_Confi|g.End".c|
|00000300| 61 6c 6c 20 6f 70 65 6e | 20 61 64 64 2c 28 6c 66 |all open| add,(lf|
|00000310| 6e 29 2c 22 52 22 3b 6e | 75 6d 3d 30 3b 64 6f 20 |n),"R";n|um=0;do |
|00000320| 75 6e 74 69 6c 20 65 6f | 66 28 61 64 64 29 3b 6e |until eo|f(add);n|
|00000330| 75 6d 3d 6e 75 6d 2b 31 | 3b 6c 6f 67 66 69 67 2e |um=num+1|;logfig.|
|00000340| 6e 75 6d 3d 72 65 61 64 | 6c 6e 28 61 64 64 29 3b |num=read|ln(add);|
|00000350| 64 65 73 63 2e 6e 75 6d | 3d 72 65 61 64 6c 6e 28 |desc.num|=readln(|
|00000360| 61 64 64 29 3b 69 66 20 | 6c 6f 67 66 69 67 2e 6e |add);if |logfig.n|
|00000370| 75 6d 3d 22 22 20 7c 20 | 6c 6f 67 66 69 67 2e 6e |um="" | |logfig.n|
|00000380| 75 6d 3d 22 22 20 26 20 | 64 65 73 63 2e 6e 75 6d |um="" & |desc.num|
|00000390| 3d 22 22 20 74 68 65 6e | 20 6e 75 6d 3d 6e 75 6d |="" then| num=num|
|000003a0| 2d 31 3b 65 6e 64 3b 63 | 61 6c 6c 20 63 6c 6f 73 |-1;end;c|all clos|
|000003b0| 65 20 61 64 64 0a 63 61 | 6c 6c 20 6f 70 65 6e 20 |e add.ca|ll open |
|000003c0| 6e 65 77 2c 28 74 6d 70 | 29 2c 22 57 22 3b 63 61 |new,(tmp|),"W";ca|
|000003d0| 6c 6c 20 53 4e 3b 74 72 | 22 19 6e 31 19 63 66 57 |ll SN;tr|".n1.cfW|
|000003e0| 68 61 74 20 61 75 74 6f | 6d 61 74 69 63 20 66 65 |hat auto|matic fe|
|000003f0| 61 74 75 72 65 73 20 77 | 6f 75 6c 64 20 79 6f 75 |atures w|ould you|
|00000400| 20 6c 69 6b 65 20 74 6f | 20 73 65 65 20 65 76 65 | like to| see eve|
|00000410| 72 79 74 69 6d 65 20 79 | 6f 75 20 6c 6f 67 20 6f |rytime y|ou log o|
|00000420| 6e 3f 19 6e 31 22 3b 64 | 6f 20 69 3d 31 20 74 6f |n?.n1";d|o i=1 to|
|00000430| 20 6e 75 6d 3b 63 61 6c | 6c 20 43 41 52 3b 70 72 | num;cal|l CAR;pr|
|00000440| 6f 6d 70 74 20 33 20 79 | 65 73 6e 6f 20 27 22 27 |ompt 3 y|esno '"'|
|00000450| 64 65 73 63 2e 69 27 20 | 19 63 66 5b 19 63 39 59 |desc.i' |.cf[.c9Y|
|00000460| 65 73 19 63 66 5d 20 19 | 63 62 22 27 3b 69 66 20 |es.cf] .|cb"';if |
|00000470| 72 65 73 75 6c 74 3d 22 | 59 65 73 22 20 74 68 65 |result="|Yes" the|
|00000480| 6e 20 63 61 6c 6c 20 77 | 72 69 74 65 6c 6e 20 6e |n call w|riteln n|
|00000490| 65 77 2c 6c 6f 67 66 69 | 67 2e 69 3b 65 6e 64 3b |ew,logfi|g.i;end;|
|000004a0| 63 61 6c 6c 20 63 6c 6f | 73 65 20 6e 65 77 0a 73 |call clo|se new.s|
|000004b0| 73 22 19 6e 31 19 63 39 | 46 69 6c 69 6e 67 20 79 |s".n1.c9|Filing y|
|000004c0| 6f 75 72 20 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |our conf|iguratio|
|000004d0| 6e 2e 2e 2e 22 3b 69 66 | 20 65 78 69 73 74 73 28 |n...";if| exists(|
|000004e0| 63 62 67 6e 29 20 74 68 | 65 6e 20 61 64 64 72 65 |cbgn) th|en addre|
|000004f0| 73 73 20 63 6f 6d 6d 61 | 6e 64 20 22 43 3a 4a 6f |ss comma|nd "C:Jo|
|00000500| 69 6e 20 22 63 62 67 6e | 22 20 22 74 6d 70 22 20 |in "cbgn|" "tmp" |
|00000510| 41 53 20 22 74 6d 70 31 | 3b 65 6c 73 65 20 61 64 |AS "tmp1|;else ad|
|00000520| 64 72 65 73 73 20 63 6f | 6d 6d 61 6e 64 20 22 43 |dress co|mmand "C|
|00000530| 6f 70 79 20 22 74 6d 70 | 22 20 22 74 6d 70 31 3b |opy "tmp|" "tmp1;|
|00000540| 69 66 20 65 78 69 73 74 | 73 28 63 65 6e 64 29 20 |if exist|s(cend) |
|00000550| 74 68 65 6e 20 61 64 64 | 72 65 73 73 20 63 6f 6d |then add|ress com|
|00000560| 6d 61 6e 64 20 22 43 3a | 4a 6f 69 6e 20 22 74 6d |mand "C:|Join "tm|
|00000570| 70 31 22 20 22 63 65 6e | 64 22 20 41 53 20 22 66 |p1" "cen|d" AS "f|
|00000580| 6e 3b 65 6c 73 65 20 61 | 64 64 72 65 73 73 20 63 |n;else a|ddress c|
|00000590| 6f 6d 6d 61 6e 64 20 22 | 43 6f 70 79 20 22 74 6d |ommand "|Copy "tm|
|000005a0| 70 31 22 20 22 66 6e 3b | 61 64 64 72 65 73 73 20 |p1" "fn;|address |
|000005b0| 63 6f 6d 6d 61 6e 64 20 | 22 44 65 6c 65 74 65 20 |command |"Delete |
|000005c0| 52 41 4d 3a 74 6d 70 23 | 3f 2e 22 75 64 69 72 22 |RAM:tmp#|?."udir"|
|000005d0| 20 46 4f 52 43 45 20 51 | 55 49 45 54 22 3b 74 72 | FORCE Q|UIET";tr|
|000005e0| 22 19 68 39 19 68 39 19 | 68 37 65 64 21 19 66 31 |".h9.h9.|h7ed!.f1|
|000005f0| 22 0a 69 66 20 65 78 69 | 73 74 73 28 22 52 41 4d |".if exi|sts("RAM|
|00000600| 3a 4e 6f 53 68 6f 77 31 | 73 74 2e 22 70 6f 72 74 |:NoShow1|st."port|
|00000610| 29 20 74 68 65 6e 20 64 | 6f 3b 61 64 64 72 65 73 |) then d|o;addres|
|00000620| 73 20 63 6f 6d 6d 61 6e | 64 20 22 43 3a 44 65 6c |s comman|d "C:Del|
|00000630| 65 74 65 20 52 41 4d 3a | 4e 6f 53 68 6f 77 31 73 |ete RAM:|NoShow1s|
|00000640| 74 2e 22 70 6f 72 74 22 | 20 51 55 49 45 54 20 46 |t."port"| QUIET F|
|00000650| 4f 52 43 45 22 3b 73 65 | 6e 64 66 69 6c 65 20 66 |ORCE";se|ndfile f|
|00000660| 6e 3b 65 6e 64 3b 63 68 | 61 6e 67 65 77 68 65 72 |n;end;ch|angewher|
|00000670| 65 20 6f 6c 64 77 68 65 | 72 65 3b 65 78 69 74 0a |e oldwhe|re;exit.|
|00000680| 53 4e 3a 3b 74 72 22 19 | 66 31 19 63 30 19 7a 37 |SN:;tr".|f1.c0.z7|
|00000690| 20 53 4e 20 4c 6f 67 69 | 6e 43 6f 6e 66 69 67 20 | SN Logi|nConfig |
|000006a0| 76 33 2e 32 20 19 7a 30 | 20 19 63 62 a9 20 31 39 |v3.2 .z0| .cb. 19|
|000006b0| 39 34 2d 39 35 20 19 63 | 39 4d 69 64 6e 69 67 68 |94-95 .c|9Midnigh|
|000006c0| 74 20 19 63 66 28 19 63 | 64 53 4e 19 63 66 2f 19 |t .cf(.c|dSN.cf/.|
|000006d0| 63 64 41 48 49 20 39 31 | 30 2d 33 32 36 2d 33 38 |cdAHI 91|0-326-38|
|000006e0| 30 34 20 32 38 2e 38 6b | 19 63 66 29 22 3b 72 65 |04 28.8k|.cf)";re|
|000006f0| 74 75 72 6e 0a 43 41 52 | 3a 3b 67 65 74 63 61 72 |turn.CAR|:;getcar|
|00000700| 72 69 65 72 3b 69 66 20 | 72 65 73 75 6c 74 3d 22 |rier;if |result="|
|00000710| 46 41 4c 53 45 22 20 74 | 68 65 6e 20 65 78 69 74 |FALSE" t|hen exit|
|00000720| 3b 72 65 74 75 72 6e 0a | 52 45 53 45 54 3a 3b 63 |;return.|RESET:;c|
|00000730| 61 6c 6c 20 53 4e 3b 74 | 72 22 19 6e 31 52 65 73 |all SN;t|r".n1Res|
|00000740| 65 74 74 69 6e 67 20 61 | 6c 6c 20 75 73 65 72 73 |etting a|ll users|
|00000750| 20 6c 6f 67 69 6e 20 63 | 6f 6e 66 69 67 75 72 61 | login c|onfigura|
|00000760| 74 69 6f 6e 73 2e 2e 2e | 22 3b 61 64 64 72 65 73 |tions...|";addres|
|00000770| 73 20 63 6f 6d 6d 61 6e | 64 20 22 43 3a 44 65 6c |s comman|d "C:Del|
|00000780| 65 74 65 20 6d 61 69 6c | 3a 75 73 65 72 73 2f 23 |ete mail|:users/#|
|00000790| 3f 2f 5f 6c 6f 67 66 69 | 67 22 3b 74 72 22 19 6e |?/_logfi|g";tr".n|
|000007a0| 31 44 6f 6e 65 2e 22 0a |                         |1Done.".|        |
+--------+-------------------------+-------------------------+--------+--------+